home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue70 / Clinic / COMSolution2 / BaseLib_TLB.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-04-05  |  3.4 KB  |  79 lines
  1. unit BaseLib_TLB;
  2.  
  3. // ************************************************************************ //
  4. // WARNING                                                                    
  5. // -------                                                                    
  6. // The types declared in this file were generated from data read from a       
  7. // Type Library. If this type library is explicitly or indirectly (via        
  8. // another type library referring to this type library) re-imported, or the   
  9. // 'Refresh' command of the Type Library Editor activated while editing the   
  10. // Type Library, the contents of this file will be regenerated and all        
  11. // manual modifications will be lost.                                         
  12. // ************************************************************************ //
  13.  
  14. // PASTLWTR : $Revision:   1.88.1.0.1.0  $
  15. // File generated on 05/04/2001 13:05:03 from Type Library described below.
  16.  
  17. // ************************************************************************ //
  18. // Type Lib: D:\MAGAZI~1\WORKIN~1\70-JUN~1\Clinic\Files\COMSOL~1\BaseLib.tlb (1)
  19. // IID\LCID: {7CACE420-96E5-4148-A50D-C3E27B1BACC9}\0
  20. // Helpfile: 
  21. // DepndLst: 
  22. //   (1) v2.0 stdole, (C:\WINNT\System32\stdole2.tlb)
  23. // Parent TypeLibrary:
  24. //   (0) v1.0 ComServer1, (D:\Magazines\Work In Progress\70 - Jun 01\Clinic\Files\COM Solution 1\ComServer1.tlb)
  25. // ************************************************************************ //
  26. {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
  27. interface
  28.  
  29. uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL;
  30.  
  31. // *********************************************************************//
  32. // GUIDS declared in the TypeLibrary. Following prefixes are used:        
  33. //   Type Libraries     : LIBID_xxxx                                      
  34. //   CoClasses          : CLASS_xxxx                                      
  35. //   DISPInterfaces     : DIID_xxxx                                       
  36. //   Non-DISP interfaces: IID_xxxx                                        
  37. // *********************************************************************//
  38. const
  39.   // TypeLibrary Major and minor versions
  40.   BaseLibMajorVersion = 1;
  41.   BaseLibMinorVersion = 0;
  42.  
  43.   LIBID_BaseLib: TGUID = '{7CACE420-96E5-4148-A50D-C3E27B1BACC9}';
  44.  
  45.   IID_IFoo: TGUID = '{97002332-F824-4247-ACDC-6E13C3914867}';
  46. type
  47.  
  48. // *********************************************************************//
  49. // Forward declaration of types defined in TypeLibrary                    
  50. // *********************************************************************//
  51.   IFoo = interface;
  52.   IFooDisp = dispinterface;
  53.  
  54. // *********************************************************************//
  55. // Interface: IFoo
  56. // Flags:     (320) Dual OleAutomation
  57. // GUID:      {97002332-F824-4247-ACDC-6E13C3914867}
  58. // *********************************************************************//
  59.   IFoo = interface(IUnknown)
  60.     ['{97002332-F824-4247-ACDC-6E13C3914867}']
  61.     procedure Bar; safecall;
  62.   end;
  63.  
  64. // *********************************************************************//
  65. // DispIntf:  IFooDisp
  66. // Flags:     (320) Dual OleAutomation
  67. // GUID:      {97002332-F824-4247-ACDC-6E13C3914867}
  68. // *********************************************************************//
  69.   IFooDisp = dispinterface
  70.     ['{97002332-F824-4247-ACDC-6E13C3914867}']
  71.     procedure Bar; dispid 1;
  72.   end;
  73.  
  74. implementation
  75.  
  76. uses ComObj;
  77.  
  78. end.
  79.